home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / STFax / STFax / Rexx / WW2STFax.rexx < prev   
OS/2 REXX Batch file  |  1997-12-20  |  644b  |  38 lines
  1. /*
  2.  *
  3.  *  $VER: WW2STFax.rexx 1.1 (29.10.97) by Simone Tellini
  4.  *
  5.  */
  6.  
  7. Options Results
  8.  
  9. /* Switch Off TurboPrint before Fax   */
  10. /* Uncomment this line if you use TP  */
  11.  
  12. /*'REQUESTRESPONSE PROMPT Remove TurboPrint first? (Removing twice might crash system)'
  13.  
  14. IF RC <= 0 THEN
  15.     Address command 'turboprint:noturbo'*/
  16.  
  17. IF ~SHOW(P,'STFAX.1') THEN DO
  18.  
  19.     'REQUESTRESPONSE PROMPT STFax is not active. Shall I load it?'
  20.  
  21.     IF RC > 0 THEN
  22.         Exit
  23.  
  24.     Address Command 'Run <>NIL: STFax:STFax'
  25.  
  26.     Address Command 'WaitForPort STFAX.1'
  27.  
  28. END
  29.  
  30. Address 'STFAX.1' 'PRTDRIVER ON'
  31.  
  32. 'PRINTSETUP'
  33. 'PRINT'
  34.  
  35. Address 'STFAX.1' 'PRTDRIVER OFF'
  36.  
  37. Exit 0
  38.